10 PRINT"[147]"
15 REM TITELBILD
20 POKE 53280,0
30 POKE 53281,0
40 PRINTTAB(6)"[182] [206][182]  [182][183][183][182][182][205]   [181][207][183][183][182][183][183][182]  [182][183][205]"
50 PRINTTAB(6)"[182][206] [182]  [182][175] [182][182] [205]  [181][180]  [170][175] [182]  [182] [182]"
60 PRINTTAB(6)"[182][205] [182]  [182]  [182][182]  [205] [181][180][183][208][182]  [182]  [182] [182]"
70 PRINTTAB(6)"[182] [205][182][175][175][182][175][175][182][182]   [205][181][204][175][186][182][175][175][182][175][175][182][175][206]"
80 PRINTTAB(6)"GESCHRIEBEN VON THOMAS SCHULZ"
90 PRINTTAB(14)"[158]VERSION 1.4"
100 PRINT"WEITER MIT (W)"
110 INPUT A$
120 IF A$="W"THEN 135
130 GOTO 10
135 PRINT "[147]"
136 REM FRAGE NACH DER ANLEITUNG
140 PRINT"IST DIE ANLEITUNG ERWUENSCHT ?"
150 PRINT"(J/N)"
160 INPUT B$
170 IF B$="J" THEN GOSUB 2000
180 POKE 53280,0
190 POKE 53281,0
200 REM FRAGE NACH DER GELDART
210 PRINT"[147]HABEN SIE IHR GELD GEROLLT (R)"
220 PRINT"ODER ALS MUENZEN (M) UND SCHEINE ?"
240 INPUT C$
245 REM SICHEHEITSABFRAG (FOLGT OEFTERS)
250 PRINT"SIND SIE SICHER ? (J/N)"
260 INPUT D$
270 IF D$="N" THEN 180
280 IF C$="M" THEN 4000
285 REM ROLLENGELDBERECHNUNG
290 POKE 53280,6
300 PRINT"[147]GEBEN SIE 1PF ROLLEN EIN."
320 INPUT A
330 LET A1=A*0.5
340 PRINT"DAS SIND "A1"DM."
350 PRINT"GEBEN SIE 2PF ROLLEN EIN."
360 INPUT B
370 LET B1=B*1
380 PRINT"DAS SIND "B1"DM"
390 PRINT"GEBEN SIE 5PF ROLLEN EIN."
400 INPUT C
410 LET C1=C*2.5
420 PRINT"DAS SIND "C1"DM"
430 LET X1=C1+B1+A1
440 PRINT"BISHER SIND ES "X1"DM"
450 PRINT"ALLE ANGABEN RICHTIG ? (J/N)"
455 INPUT E$
460 IF E$="J" THEN 480
470 GOTO 300
480 PRINT"[147]GEBEN SIE 10PF ROLLEN EIN."
490 INPUT D
500 LET D1=D*5
510 PRINT"DAS SIND "D1"DM"
520 PRINT"GEBEN SIE 50PF ROLLEN EIN."
530 INPUT E
540 LET E1=E*25
550 PRINT"DAS SIND "E1"DM"
560 PRINT"GEBEN SIE 1DM ROLLEN EIN."
570 INPUT F
580 LET F1=F*50
590 PRINT"DAS SIND "F1"DM"
600 LET X2=X1+D1+E1+F1
610 PRINT"BISHER SIND ES "X2"DM"
620 PRINT"ALLE ANGABEN RICHTIG ? (J/N)"
630 INPUT F$
640 IF F$="J" THEN 660
650 GOTO 480
660 PRINT"[147]GEBEN SIE 2DM ROLLEN EIN.
670 [133] G
680 [136] G1[178]G[172]100
690 [153]"DAS SIND "G1"DM"
700 [153]"GEBEN SIE 5DM ROLLEN EIN."
710 [133] H
720 [136] H1[178]H[172]200
730 [153]"DAS SIND "H1"DM"
740 [136] XA[178]X2[170]G1[170]H1
745 [153]"BISHER SIND ES "XA"DM"
750 [153]"ALLE ANGABEN RICHTIG ? (J/N)"
760 [133] G$
770 [139] G$[178]"J" [167] 790
780 [137] 660
790 [153]"LOADMOECHTEN SIE DEN BETRAG IHREM"
800 [153]"SPARBUCH (S) ZUZIEHEN, DAS PROGRAMM"
810 [153]"BEENDEN (E) ODER ES WIEDERHOLEN ? (W)"
820 [133] H$
830 [139] H$[178]"S" [167] 8000
840 [139] H$[178]"W" [167] 10
850 [139] H$[178]"E" [167] 10000
860 [137] 790
865 [143] ENDE ROLLENBERECHNUNG
2000 [151] 53280,12
2005 [143] ANLEITUNG
2010 [151] 53281,12
2020 [153]"STOPLOADANLEITUNG ZU KLEINGELD V1.4"
2030 [153]"DIESES PROGRAMM DIENT ZUR BERECHNUNG"
2040 [153]"VON KLEINGELD. GEROLLT ODER EINZELN"
2050 [153]"IM MENU WIRD ZWISCHEN DIESEN BEIDEN"
2060 [153]"MOEGLICHKEITEN, MIT (R/M) GEWAEHLT"
2070 [153]"IN BEIDEN TEILEN ERFOLGT DIE EINGABE"
2080 [153]"DER WERTE IN AUFSTEIGENDER FOLGE"
2090 [153]"BEIM ROLLENGELD VON 1PF BIS 5DM"
2110 [153]"BEIM MUENZGELD VON 1PF BIS 1000DM"
2120 [153]"WEITER MIT (W)"
2130 [133] A$
2140 [139] A$[178]"W" [167] 2160
2150 [137] 2020
2160 [153]"LOADNACH EINGABE ALLER WERTE KANN MAN"
2170 [153]"DIESE SEINEM SPARBUCH (S) ZUZIEHEN"
2180 [153]"DAS PROGRAMM BEENDEN (E)"
2190 [153]"ODER ES WIEDERHOLEN (W)"
2200 [153]"WIRD ES BEENBET ERFOLGT NOCH EINE"
2210 [143]
2220 [153]"SICHERHEITSABFRAGE"
2225 [153]"WEITER MIT (W)"
2230 [133] B$
2240 [139] B$[178]"W" [167] 2260
2250 [137] 2160
2260 [153]"LOADOPTISCH UNTERSCHEIDEN SICH DIE "
2270 [153]"PROGRAMMTEILE IN DER RAHMENFARBE"
2280 [153]"ROLLENGELD=BLAU"
2290 [153]"MUENZGELD=GRUEN"
2300 [153]"SPARBUCH=GELB"
2310 [153]"ENDE=ROT"
2320 [153]"AUF FRAGEN DES C=64 KANN MANN NUR"
2330 [153]"MIT DEN ANGEGEBENEN MOEGLICHKEITEN"
2340 [153]"ANTWORTEN"
2350 [153]"WEITER MIT (W)"
2360 [133] C$
2370 [139] C$[178]"W" [167] 2390
2380 [137] 2260
2390 [153]"LOADDIESES PROGRAMM WURDE GESCHRIEBEN VON"
2400 [153][163]6)"THOMAS SCHUZ"
2410 [153][163]6)"MUEHLENWEG 51"
2420 [153][163]6)"38448 WOLFSBURG"
2430 [153]"ES IST FREI VON ALLEN RECHTEN"
2432 [153]"SEPTEMBER 1995"
2435 [153]"MOECHTEN SIE DIE ANLEITUNG"
2440 [153]"WIEDERHOLEN (W) ?"
2450 [153]"BEENDEN (E) ?"
2460 [133] D$
2470 [139] D$[178]"W"[167] 2020
2480 [139] D$[178]"E"[167] 2500
2490 [137] 2390
2500 [142]
4000 [151] 53280,5
4005 [143] MUENZGELDBERECHNUNG
4010 [153]"LOADGEBEN SIE 1PF EIN"
4020 [133] A
4030 [136] A1[178]A[172]0.01
4040 [153]"DAS SIND "A1"DM"
4050 [153]"GEBEN SIE 2PF EIN"
4060 [133] B
4070 [136] B1[178]B[172]0.02
4080 [153]"DAS SIND "B1"DM"
4090 [153]"GEBEN SIE 5PF EIN"
4100 [133] C
4110 [136] C1[178]C[172]0.05
4120 [153]"DAS SIND "C1"DM"
4130 [153]"GEGEN SIE 10PF EIN"
4140 [133] D
4150 [136] D1[178]D[172]0.1
4160 [153] "DAS SIND "D1"DM"
4170 [136] X1[178]A1[170]B1[170]C1[170]D1
4180 [153]"BISHER SIND ES "X1"DM"
4190 [153]"ALLE ANGABEN RICHTIG ? (J/N)
4200 INPUT A$
4210 IF A$="N" THEN 4010
4220 IF A$="J" THEN 4240
4230 GOTO 4190
4240 PRINT"[147]GEBEN SIE 50PF EIN"
4245 INPUT E
4250 LET E1=E*0.5
4260 PRINT"DAS SIND "E1"DM"
4270 PRINT"GEBEN SIE 1DM EIN"
4280 INPUT F1
4290 PRINT"DAS SIND "F1"DM"
4300 PRINT"GEBEN SIE 2DM EIN"
4310 INPUT G
4320 LET G1=G*2
4330 PRINT"DAS SIND "G1"DM"
4340 PRINT"GEBEN SIE 5DM EIN"
4350 INPUT H
4360 LET H1=H*5
4370 PRINT"DAS SIND "H1"DM"
4380 LET X2=E1+F1+G1+H1+X1
4390 PRINT"BISHER SIND ES "X2"DM"
4400 PRINT"ALLE ANGABEN RICHTIG ? (J/N)
4410 [133] B$
4420 [139] B$[178]"N"[167] 4240
4430 [139] B$[178]"J" [167] 4450
4440 [137] 4400
4450 [153]"LOADGEBEN SIE 10DM EIN"
4460 [133] I
4470 [136] I1[178]I[172]10
4480 [153]"DAS SIND "I1"DM"
4490 [153]"GEBEN SIE 20DM EIN"
4500 [133] J
4510 [136] J1[178]J[172]20
4520 [153]"DAS SIND "J1"DM"
4530 [153]"GEBEN SIE 50DM EIN"
4540 [133] K
4550 [136] K1[178]K[172]50
4560 [153]"DAS SIND "K1"DM"
4570 [153]"GEBEN SIE 100DM EIN"
4580 [133] L
4590 [136] L1[178]L[172]100
4600 [153]"DAS SIND "L1"DM"
4610 [136] X3[178]X2[170]I1[170]J1[170]K1[170]L1
4620 [153]"BISHER SIND ES "X3"DM"
4630 [153]"ALLE ANGABEN RICHTIG ? (J/N)
4640 INPUT C$
4650 IF C$="N" THEN 4450
4660 IF C$="J" THEN 4680
4670 GOTO 4630
4680 PRINT"[147]GEBEN SIE 200DM EIN"
4690 INPUT M
4700 LET M1=M*200
4710 PRINT"DAS SIND "M1"DM"
4720 PRINT"GEBEN SIE 500DM EIN"
4730 INPUT N
4740 LET N1=N*500
4750 PRINT"DAS SIND "N1"DM"
4760 PRINT"GEBEN SIE 1000DM EIN"
4770 INPUT O
4780 LET O1=O*1000
4790 PRINT"DAS SIND "O1"DM"
4800 LET XA=X3+M1+N1+O1
4805 PRINT"BISHER SIND ES "XA"DM"
4810 PRINT"ALLE ANGABEN RICHTIG ? (J/N)
4820 [133] D$
4830 [139] D$[178]"J" [167] 4860
4840 [139] D$[178]"N" [167] 4680
4850 [137] 4810
4860 [153]"LOADMOECHTEN SIE DEN WERT DEM SPARBUCH (S)"
4870 [153]"ZUZIEHEN, DAS PROGRAMM BEENDEN (E)"
4880 [153]"ODER WIEDEHOLEN (W) ?"
4890 [133] E$
4900 [139] E$[178]"W" [167] 10
4910 [139] E$[178]"S" [167] 8000
4920 [139] E$[178]"E" [167] 10000
4930 [137] 4860
5000 [143]*******************************
5001 [143]*                             *
5002 [143]* DIESES PROGRAMM WURDE AM    *
5003 [143]* SONNTAG DEN 17.09.1995      *
5004 [143]* VON THOMAS SCHULZ           *
5005 [143]*     FRITZ WEIBERG STR.38    *
5006 [143]*     38448 WOLFSBURG         *
5007 [143]*                             *
5008 [143]*     TEL.05363/40522         *
5009 [143]*                             *
5010 [143]* BEENDET.                    *
5011 [143]*                             *
5012 [143]* DAS PROGRAMM IST FREI VON   *
5013 [143]* ALLEN RECHTEN.              *
5014 [143]*                             *
5015 [143]* FUER WEITERE ANREGUNGEN BIN *
5016 [143]* ICH DANKBAR.                *
5017 [143]*                             *
5018 [143]* ES LEBE DER C=64 UND DIE    *
5019 [143]* FREIHEIT!                   *
5020 [143]*                             *
5021 [143]*******************************
8000 [151] 53280,7
8003 [143] SPARBUCHBERECHNUNG
8005 [151] 53281,7
8010 [153]"LOADGEBEN SIE DEN WERT DES "
8020 [153]"SPARBUCHES EIN"
8030 [133] Z
8040 [136] Y[178]Z[170]XA
8050 [153]"DER WERT DES NACH EINER EINZAHLUNG IST"
8060 [153][163]10)"DEF"Y"DM"
8070 [153]"SIND ALLE ANGABEN RICHTIG ? (J/N)"
8080 [133] Z$
8090 [139] Z$[178]"J"[167] 8110
8100 [139] Z$[178]"N"[167] 8010
8105 [137] 8070
8110 [153]"LOADMOECHTEN SIE DAS PROGRAMM BEENDEN (E)"
8120 [153]"ODER WIEDERHOLEN (W) ?"
8130 [133] Y$
8140 [139] Y$[178]"W"[167] 10
8150 [139] Y$[178]"E"[167] 10000
8160 [137] 8110
10000 [151] 53280,2
10005 [143] LETZTE SICHERHEITSABFRAGE
10010 [153]"LOADMOECHTEN SIE DAS PROGRAMM"
10020 [153]"BEENDEN (E) ?"
10030 [153]"WIEDERHOLEN (W) ?"
10040 [133] P$
10050 [139] P$[178]"W"[167] 10
10060 [139] P$[178]"E"[167] 10070
10065 [137] 10010
10070 [128]
20040 [133] P$
20050 [139] P$[178]"E"[167] 10070